input sunfont1base  
proofing:=1;		% this will make a "GF" output file
			% so you can get hardcopy proofs and/or run "bits"
% pausing:=1;		% So that I can see where it goes wrong
% tracingequations:=1;	% To see if everything is properly defined

vardef char.h =
	setwidth .6em;		% do this first; it sets the character width
	pos1(1.5thickwidth,45); % the pen is "thicker than thick" at the top
	pos2(1.05thickwidth,10); % and also slightly flared at the bottom
	pos3(.6thinwidth,90); 	% The starting place for the right branch
	pos4(.65[.3thinwidth,thinwidth],110); 
	pos5(thinwidth,90);	 % Joining point of two curves
	pos6(.85[thinwidth,thickwidth],45);   % at point with slope for line 5,7
	pos7(.95thickwidth,10); % Junction of curve with final stroke
	pos8(thickwidth,10); % Bases of two branches to be the same
	z2=(.222w,0);	% at the baseline, midway between left and right ends
	y1=hheight; x1r=x2r; % at the hheight, aligned at the right
	x3=x2+.5thickwidth; 	y3=.8xheight; dz3=(1,2);
	x4=.5[x3,x5]; y4=.8[y3,y5]; 
	x5r=.5[x3r,x7r]; y5r=1.05xheight; dz5=(1,0);

	x6=.8[x5,x7]; y6=.35[y5,y7];
	z7=(.778w,.6xheight); dz7=(0,-1);
	z8=(.778w,0); dz8=(0,-1);

	stroke(1,2,.1,.2,0); % taper at the left but not the right
	curve(3,4,5);
	curve(5,6,7);
	stroke(7,8,0,.0,0);
	labelpos(1,2,3,4,5,6,7,8);
enddef;

test.normal(char.h);	% this will display my h, with "normal" parameters
test.bold(char.h);	% and this will display it with "bold" parameters
test.boldx(char.h);	% and bold extended

test(char.h);		% this shows all three h's, but only half size

end